home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00584_state scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  916 b   |  25 lines
  1. on getState
  2.   global gMode, gPage, gNewChap, gChallengeIndex, gWorth, gPageScore, gTest, gBlindfold, gNextUnit, gNextChap, gTimer, gTimerTicks, gFlowType, gNextPage
  3.   if voidp(gNewChap) then
  4.     return [:]
  5.   end if
  6.   set sList to [:]
  7.   setaProp(sList, #mode, gMode)
  8.   setaProp(sList, #page, gPage)
  9.   setaProp(sList, #cindex, gChallengeIndex)
  10.   setaProp(sList, #worth, gWorth)
  11.   setaProp(sList, #pagescore, gPageScore)
  12.   setaProp(sList, #nextunit, gNextUnit)
  13.   setaProp(sList, #nextchapter, gNextChap)
  14.   setaProp(sList, #nextPage, gNextPage)
  15.   setaProp(sList, #allowpanel, gTest)
  16.   setaProp(sList, #blindfold, gBlindfold)
  17.   setaProp(sList, #timer, gTimer)
  18.   setaProp(sList, #unit, ChapStr2Unit(gNewChap))
  19.   setaProp(sList, #chapter, ChapStr2Chap(gNewChap))
  20.   setaProp(sList, #language, ChapStr2Language(gNewChap))
  21.   setaProp(sList, #timerticks, gTimerTicks)
  22.   setaProp(sList, #flowtype, gFlowType)
  23.   return sList
  24. end
  25.